program Procedura;
procedure f(x:real);
var
	a:real;
begin
	a:=x;
	writeln(a);
end;

var
	a:real;
begin
	a:=0.5;
	f(a);
	f(0.7);
end.
